home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_537.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  819 b   |  29 lines
  1. on RollEarth spr
  2.   global earth_list, earth_spd_flag
  3.   set nam to EMPTY
  4.   if SpriteExists(spr) > 0 then
  5.     set nam to char 1 to 4 of the name of the member of sprite spr
  6.   end if
  7.   if (SpriteExists(spr) > 0) and (nam = "tiny") then
  8.     set _now to the name of the member of sprite spr
  9.     set f to 1
  10.     set _next to EMPTY
  11.     repeat while (_next = EMPTY) and (f < 100)
  12.       set _test to getAt(earth_list, f)
  13.       if _test = _now then
  14.         set _next to getAt(earth_list, f + earth_spd_flag)
  15.       end if
  16.       set f to f + 1
  17.     end repeat
  18.     if _next = "_loop" then
  19.       set _next to getAt(earth_list, 1)
  20.     end if
  21.     set the member of sprite spr to member _next of castLib "buttons"
  22.     if earth_spd_flag = 1 then
  23.       set earth_spd_flag to 1
  24.     else
  25.       set earth_spd_flag to 1
  26.     end if
  27.   end if
  28. end
  29.